home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CUCD / Utilities / M2I / Rexx / Snd.M2I < prev    next >
Encoding:
Text File  |  1998-03-24  |  340 b   |  24 lines
  1. /* Change SoundTask flag, and save menu if needed */
  2. OPTIONS RESULTS
  3. ADDRESS "M2IPort.Rexx"
  4.  
  5.  REQUEST "Sound Task must be on?"
  6.  IF RC=0 THEN DO
  7.     SOUND OFF
  8.  END
  9.  ELSE DO
  10.     SOUND ON
  11.  END
  12.  
  13.  IF RC~=5 THEN DO
  14.     REQUEST "Save Menu?"
  15.     IF RC=1 THEN DO
  16.        SAVEMENU
  17.     END
  18.  END
  19.  ELSE DO
  20.     ERROR "The state doesn't change"
  21.  END
  22.  
  23. EXIT
  24.